open out, ">out.txt" or die $!;
@dirs = glob("*.gif");
for (@dirs)
{
	print out "\"$_\",\n";
}